Appl. No. 10/079,309 



Paragraph Nos. [0001] through (0012], [00151 through [0021] and [0024] through 
[0028] remain as is in the specification. Please delete paragraph Nos. [0013] and 
[0014]. Paragraph Nos. [0022], [0023], [0029] and [0030] and all their ELEMENTS 
in the section entitled "DETAILED DESCRIPTION OF THE INVENTION" have 
been replaced with the following rewritten content. Paragraph Nos. [0031] through 
[0053] are added as new: 



[0022] Shown below are the variables used and how the calculations are made in the central 

set of math routine algorithms. 

Element Title: Vector and Matrix Subroutine 

U, V, W are the end result of the compensated tool positions. 

D = the distance or combined length of FIG 2. Dim "A" Item 2, Dim "B" Item 3 

and Dim "C" Item 4. 

Vx,Vy,Vz are the 3D vector component values. 

X, Y, Z is the original non-compensated tool position 

U = D*Vx + X 
V = D* Vy + Y 
W = D* Vz + Z 



[0023] The use of the L code represents a conical angle measured from the tool tip point 

to the nearest obstacle from a flat 2D plane. If the user specifies an angle after LLIMIT, 
then the tool position move may be completely omitted by the machine if an obstacle is 
encountered on the part surface in order to automatically avoid gouging as part of the 
central set of math routine algorithms. 



Element Title: Gouge Subroutine 

L!= the value given after the LLIMIT command. 

L = (D/Sin(L!)) 

If L < 0 Then skip this move. 

Else, combine this value with the D distance value to arrive at a new distance to 
compensate. 

D=D+L 
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10029] As such this set of central math routine algorithms using variables to show the 

math matrix calculation is shown below: 



Element Title: Central Subroutine 

Cz = Cos(Rz): Sz = Sin(Rz): Cx = Cos(Rx): Sx = Sin(Rx): Cy = Cos(Ry): Sy = Sin(Ry) 
'Z rotate, counter clockwise 

Xl=U*Cz + V*Sz: Yl=U*-Sz + V*Cz:Zl=W 
*Y rotate, back 

X2 = X1: Y2 = Y1 *Cx + Zl *-Sx:Z2 = Yl *Sx + Zl * Cx 
•X rotate, left 

U = X2 * Cy + Z2 * -Sy: V = Y2: W = X2 * Sy + Z2 * Cy 



[0030] The database is an internal list for storage of events, variables, conditions and 

positions kept in standard computer random access memory. The format for this 
information is kept in multiple sequential standard matrix arrays. The data is accessed 
randomly as needed. The formats are double, matrix array as shown below for all 
collected and gathered user data, variables and positions: 



Element Title: Database Subroutine 

Positionl(X,Y,Z,4,5,6,7,8) 
Position2(X,Y,Z,4,5,6,7,8) 
Position3(X,Y,Z,4,5,6,7,8) 
Etc. . . to Nth Position 
Position Nth(X,Y,Z,4,5,6,7,8) 

VariableDatal (Var 1 ,Var2,Var3,Var4,Var5, Var6, Var7, Var8) 
VariableData2(Varl,Var2,Var3,Var4,Var5,Var6,Var7,Var8) 
VariableData3(Varl,Var2,Var3,Var4,Var5,Var6,Var7,Var8) 
Etc... to Nth 

VariableData Nth(Varl ,Var2,Var3,Var4,Var5,Var6,Var7,Var8) 
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UserDatal (Userl ,User2,User3,User4,User5,User6,User7,User8) 
UserData2(Userl,User2,User3,User4,User5,User6,User7,User8) 
UserData3(Userl,User2,User3,User4,User5,User6,User7,User8) 
Etc... to Nth 

UserData Nth(Userl ,User2,User3,User4,User5,User6,User7,User8) 



The Database subroutine calls, ties to and works together to the Element titled 
DbAtr enumerated as paragraph [0043], Element titled DbGet enumerated as paragraph 
[0044], Element titled DbSet enumerated as paragraph [0045] and Element titled 
DbSetAtrCur enumerated as paragraph [0046]. 



Element title: Intelligent Database Subroutine 

The intelligent database is a subset of data collection records obtained from the 
main database and revised by the element titled Central subroutine element as needed by 
records and variables passed from the main Database subroutine element. The variables 
in the Intelligent database are looked up by the Central subroutine element to further 
process and refine the multiple axis tool compensation calculation by comparing past 
conditions, errors and events. 

PositionDatal (Varl ,Var2,Var3,Var4,Var5,Var6,Var7,Var8) 
Etc.to Nth PositionData# 

ErrorAmountl(Varl,Var2,Var3,Var4,Var5,Var6,Var7,Var8) 
Etc.to Nth ErrorAmount# 

EventAtBlockl(Varl,Var2,Var3,Var4,Var5,Var6,Var7,Var8) 
Etc.to Nth EventAtBlock# 

ConditionTypel (Var 1 ,Var2,Var3,Var4,Var5,Var6,Var7,Var8) 
Etc.to Nth ConditionType# 

ConditionTimel(Varl,Var2,Var3,Var4,Var5,Var6,Var7,Var8) 
Etc.to Nth ConditionTime# 

The element titled as Intelligent Database subroutine calls, ties to and works 
together to the Element titled DbAtr enumerated as paragraph [0043], Element titled 
DbGet enumerated as paragraph [0044], Element titled DbSet enumerated as paragraph 
[0045] and Element titled DbSetAtrCur enumerated as paragraph [0046]. 
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[0031] Presents a group of elements titled as the collection of mathematical subroutine 

elements and enumerated here as Paragraphs [0031] through [0054]. The provided 
flowchart in block diagram form, FIG 10, recites all of the elements, components and 
steps completely constituting every aspect of the technology elements enumerated as 
Paragraphs [0030] titled as Intelligent Database subroutine and Database subroutine 
which calls, ties to and works together with the group of elements titled the collection of 
mathematical subroutine elements enumerated as Paragraphs [0031] through [0054] and 
specifically linked to and shown in FIG 10 of the block diagram as it interacts with the 
Element titled DbAtr enumerated as paragraph [0043] , Element titled DbGet enumerated 
as paragraph [0044], Element titled DbSet enumerated as paragraph [0045] and Element 
titled DbSetAtrCur enumerated as paragraph [0046]. 



Subroutine Element Form Load 

Reads in all data from user input boxes from FIG 1 and stores them into the 
Database Element as described and enumerated as paragraph [0030]. 



Private Sub Form_Load() 

On Local Error GoTo LloadErr 

IniDirS - Environ$("AS3000"): If Right$(IniDir$, 1) o T Then IniDir$ = IniDir$ + T 
Call GloRead 

Call Prevlnst 

If Commands o "LAUNCH FROM CNC ONLY" Then MsgBox "You must launch this 
from the CNC": End 

ShowDone% = 0 

•Call IniRead("CNCTOOL.INI", "FORM") 
'Call IniDat("TOP", T$): CNCtool.Top = Val(T$) 
'Call IniDat("LEFT", T$): CNCtooLLeft = Val(T$) 
'Call IniDat("HEIGHT", T$): CNCtool.Height = Val(T$) 
•Call IniDat("WIDTH", T$): CNCtool. Width = Val(T$) 
ShowDone% = 1 

If Tune% = 1 Then Sounds.MMControll. Enabled = True 
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SSPanel6.Top = 60: SSPanel6.Left = 6540 

If Mach$ = "LATHE" Then 
' OLD For Standard Lathe 

'SSPanell .Caption = " Tool Parameters 

Tool Nose Z axis X axis Custom Wear Custom 1 Custom2 Radius Horz 
Vert 3rd axis" 

'SSPanel2.Caption = " Machine Offsets 

Z X 3 4 5 6" 

'SSPanel6.Caption = "Tool Definitions (Solid Mode Only) Corner Bottom Side 
Length Type radius angle angle 

'Label5.Caption = "Z": Label6.Caption = "X": Label7.Caption = "3" 

' OLD For Vertical Turning Lathe 

•SSPanell.Caption = "" 

'SSPanel2.Caption = " Machine Offsets 

X Z 4 5 6" 

'SSPanel6.Caption = "Tool Definitions (Solid Mode Only) Comer Bottom Side 
Length Type radius angle angle 

'Label5.Caption = "X": Label6.Caption = " ": Label7.Caption = "Z" 

-New LATHE 

Label5.Caption = "Z": Label6.Caption - "X": Label7.Caption = "3" 

SSPanel 1 .Caption = " Tool Parameters 

Tool Nose Zaxis Xaxis 3rd axis Wear Custom lCustom2 Radius Horz 
Vert" 

SSPanel2.Caption = " Machine Offsets 

Z X 3 4 5 6 7 8" 

SSPanel6.Caption = " Tool Definitions (Solid Mode Only) Comer Bottom Side 
Length Type radius angle angle " 
Else 

'OLD Standard mill 

'SSPanell .Caption = " Tool Parameters 

Size Horz Vert Height Wear Custom 1 Custom2" 

'SSPanel2.Caption = " Machine Offsets 

X Y * Z 4 5 6" 

'SSPanel6.Caption = "Tool Definitions (Solid Mode Only) Comer Bottom Side 
Length Type radius angle angle " 

New Mill 

Label5.Caption = "X": Label6.Caption = "Y": Label7.Caption = "Z" 

SSPanell .Caption = " Tool Parameters 

Size Horz Vert x Height Wear Custom lCustom2" 

SSPanel2,Caption = Machine Offsets 

X Y Z 4 5 6 7 8" 

SSPanel6.Caption = " Tool Definitions (Solid Mode Only) Comer Bottom Side 
Length Type radius angle angle " 
End If 
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ToolPage% = 0 
ToolDef% = 0 
ToolDescrip% = 0 
ToolPics% = 0 

If Dir$(IniDir$ + "CNC\TOOLDEF.FIL") o "" Then ToolDef% = 1 
If Dir$(IniDir$ + M CNC\TOOLCUS.FIL n ) o "" Then ToolCus% = 1 
If Dir$(IniDir$ + "CNC\TOOLDESP.FIL ,, ) o "" Then ToolDescrip% = 1 
If Dir$(IniDir$ + "CNCYTOOLPICS.FIL") o "" Then ToolPics% - 1 

Fl% = FreeFile: Open IniDirS + "CNC\T00L.FIL" For Input As #F1% 

If ToolDef% = 1 Then F2% = FreeFile: Open IniDir$ + "CNC\T00LDEF.FIL" For Input 

As#F2% 

If ToolCus% = 1 Then F3% - FreeFile: Open IniDir$ + "CNCYTOOLCUS.FIL" For 
Input As #F3% 

If ToolDescrip% = 1 Then F4% = FreeFile: Open IniDirS + "CNCYTOOLDESP.FIL" For 
Input As #F4% 

If ToolPics% = 1 Then F5% = FreeFile: Open IniDirS + "CNC\TOOLPICS.FIL" For 
Input As #F5% 

For Cnt% = 0 To 9 

Input #F1%, TemN!: Dum$ - Format$(TemN!, "####0.0####F): Textl(Cnt%).Text = 
Trim$(Dum$) 'Size 

Input #F1%, TemN!: Dum$ = Format$(TemN!, "####0.0#####"): Text2(Cnt%).Text = 
Trim$(Dum$) 'Horz 

Input #F1%, TemN!: Dum$ = Format$(TemN!, "####0.0#####"): Text3(Cnt%).Text = 
Trim$(Dum$) 'Vert 

Input #F1%, TemN!: Dum$ = Format$(TemN!, "####0.0#####"): Text4(Cnt%).Text = 
Trim$(Dum$) 'Height 

Input #F1%, TemN!: Dum$ = Format$(TemN!, "####0.0#####"): Text5(Cnt%).Text = 
Trim$(Dum$) 'Wear 

If ToolDef% = 1 Then 

Input #F2%, Dum$: Dum$ = Format$(Dum$, "####0.0#####"): Textl6(Cnt%).Text = 
Trim$(Dum$) 'Corner Radius 

Input #F2%, Dum$: Dum$ = Format$(Dum$, "####0.0#####"): Textl7(Cnt%).Text = 
Trim$(Dum$) 'Bottom Angle 

Input #F2%, Dum$: Dum$ = Format$(Dum$, "####0.0#####"): Textl8(Cnt%).Text = 
Trim$(Dum$) 'Side Angle 

Input #F2%, Dum$: Dum$ = Format$(Dum$, "####0.0#####"): Textl9(Cnt%).Text = 
Trim$(Dum$) 'Length 

Input #F2%, Dum$rText20(Cnt%).Text = Trim$(Dum$) 'ToolType 

End If 

IfToolCus%= 1 Then 

Input #F3%, Dum$: Text23(Cnt%).Text = Trim$(Dum$) 'Customl 
Input #F3%, Dum$: Text24(Cnt%).Text = Trim$(Dum$) 'Custom2 
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End If 

IfToolDescrip%= 1 Then 
Input #F4%, Dum$: Text26(Cnt%).Text 
Input #F4%, Dum$: Text25(Cnt%).Text 
End If 

ToolPics% is F5% not needed here 
Next Cnt% 

SeekFl%,l 

If ToolDef% = 1 Then Seek F2%, 1 
If ToolCus% = 1 Then Seek F3%, 1 
If ToolDescrip% = 1 Then Seek F4%, 1 
If ToolPics% = 1 Then Seek F5%, 1 

'Load rest of tool info into arrays ' MaxTools% 

For Cnt% = 1 To MaxTools% 

Input #F1%, ToolSize!(Cnt%) 

Input #F1%, ToolHorz!(Cnt%) 

Input #F1%, ToolVert!(Cnt%) 

Input #F1%, ToolHeight!(Cnt%) 

Input #F1%, ToolWear!(Cnt%) 

If ToolDef% = 1 Then 

Input #F2%, ToolCorRad!(Cnt%) 

Input #F2%, ToolBotAng!(Cnt%) 

Input #F2%, ToolSideAng!(Cnt%) 

Input #F2%, ToolLength!(Cnt%) 

Input #F2%, ToolType!(Cnt%) 
End If 

IfToolCus%= 1 Then 

Input #F3%, ToolCustoml!(Cnt%) 

Input #F3%, ToolCustom2!(Cnt%) 
End If 

IfToolDescrip%= 1 Then 

Input #F4%, ToolDesp$(Cnt%) 

Input #F4%, ToolTime!(Cnt%) 
End If 

IfToolPics%= 1 Then 
Input #F5%, Dum$: ToolPhoto$(Cnt%) = Trim$(Dum$) 'Desp 
End If 
Next Cnt% 

Close Fl%, F2%, F3%>4%, F5% 

Fl% = FreeFile: Open IniDir$ + "CNCYTOOLOPT.FIL" For Input As #F1% 
' machine offsets 



= Trim$(Dum$) 'Desp 
= Trim$(Dum$) Time 
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Input #F1%, TemN!: Dum$ = Format$(TemN!, »####0.0#####"): Text6(0).Text 
Trim$(Dum$) X 

Input #F1%, TemN!: Dum$ = Format$(TemN!, "####0.0#####"): Text6(l).Text 
Trim$(Dum$) 'Y 

Input #F1%, TemN!: Dum$ = Fonnat$(TemN!, "####0.0#####"): Text6(2).Text 
Trim$(Dum$) 'Z 

Input #F1%, TemN!: Dum$ =Format$(TemN!, "####0.0#####"): Text6(3).Text 
Trim$(Dum$) *4 

Input #F1%, TemN!: Dum$ = Format$(TemN!, "####0.0#####"): Text6(4).Text 
Trim$(Dum$) '5 

Input #F1%, TemN!: Dum$ = Format$(TemN!, "####0.0#####"): Text6(5).Text 
Trim$(Dum$) '6 

•Input #F1%, Dum$: Text6(6).Text = Trim$(Dum$) 7 see end of file line 23 
•Input #F1%, Dum$: Text6(7).Text = Trim$(Dum$) '8 

'Fixture offsets 

Input #F1%, TemN!: Dum$ = Format$(TemN!, "####0.0#####"): Text7(0).Text 
Trim$(Dum$) X G54 

Input #F1%, TemN!: Dum$ = Format$(TemN!, "####0.0#####"): Text7(l).Text 
Trim$(Dum$) 'Y 

Input #F1%, TemN!: Dum$ = Format$(TemN!, »####0.0#####"): Text7(2).Text 
Trim$(Dum$) 'Z 

Input #F1%, TemN!: Dum$ = Format$(TemN!, "####0.0###?^#"): Text7(3).Text 
Trim$(Dum$) '4 

Input #F1%, TemN!: Dum$ = Format$(TemN!, "####0.0#####"): Text7(4).Text 
Trim$(Dum$) '5 

Input #F1%, TemN!: Dum$ = Format$(TemN!, "####0.0#####"): Text7(5).Text 
Trim$(Dum$) '6 

Input #F1%, TemN!: Dum$ = Format$(TemN!, "####0.0#####"): Text8(0).Text 
Trim$(Dum$) 'X G55 

Input #F1%, TemN!: Dum$ = Format$(TemN!, »####0.0#####"): Text8(l).Text 
Trim$(Dum$) 'Y 

Input #F1%, TemN!: Dum$ = Format$(TemN!, "####0.0##### M ): Text8(2).Text 
Trim$(Dum$) 'Z 

Input #F1%, TemN!: Dum$ = Format$(TemN!, "####0.0#####"): Text8(3).Text 
Trim$(Dum$) '4 

Input #F1%, TemN!: Dum$ = Format$(TemN!, "####0.0#####"): Text8(4).Text 
Trim$(Dum$) '5 

Input #F1%, TemN!: Dum$ = Format$(TemN!, "####0.0#####"): Text8(5).Text 
Trim$(Dum$)'6 

Input #F1%, TemN!: Dum$ - Format$(TemN!, "####0.0#####"): Text9(0).Text 
Trim$(Dum$) 'X G56 

Input #F1%, TemN!: Dum$ = Format$(TemN!, "####0.0#####"): Text9(l).Text ■ 
Trim$(Dum$) 'Y 

Input #F1%, TemN!: Dum$ = Format$(TemN!, "####0.0#####"): Text9(2).Text = 
Trim$(Dum$)'Z 
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Input #F1%, TemN!: Dum$ = Fonnat$(TemN!, "####0.0#####"): Text9(3).Text = 
Trim$(Dum$) '4 

Input #F1%, TemN!: Dum$ = Format$(TemN!, "####0.0#####"): Text9(4).Text = 
Trim$(Dum$) '5 

Input #F1%, TemN!: Dum$ = Format$(TemN!, "####0.0#####"): Text9(5).Text = 
Trim$(Dum$) '6 

Input #F1%, TemN!: Dum$ = Format$(TemN!, "####0.0#####"): Textl0(0).Text = 
Trim$(Dum$)'XG57 

Input #F1%, TemN!: Dum$ = Format$(TemN!, "####0.0#####"): Textl0(l).Text 
Trim$(Dum$) 'Y 

Input #F1%, TemN!: Dum$ = Format$(TemN!, "####0.0#####"): Textl0(2).Text 
Trim$(Dum$) 'Z 

Input #F1%, TemN!: Dum$ = Format$(TemN!, "####0.0#####"): Textl0(3).Text 
Trim$(Dum$) '4 

Input #F1%, TemN!: Dum$ = Format$(TemN!, "####0.0#####"): Textl0(4).Text 
Trim$(Dum$) '5 

Input #F1%, TemN!: Dum$ = Format$(TemN!, "####0.0#####"): Textl0(5).Text 
Trim$(Dum$) '6 

Input #F1%, TemN!: Dum$ = Format$(TemN!, "####0.0#####"): Textl l(0).Text 
Trim$(Dum$) 'X G58 

Input #F1%, TemN!: Dum$ = Format$(TemN!, "####0.0#####"): Textl l(l).Text 
Trim$(Dum$) 'Y 

Input #F1%, TemN!: Dum$ = Format$(TemN!, »####0.0#####"): Textl l(2).Text 
Trim$(Dum$) 'Z 

Input #F1%, TemN!: Dum$ = Format$(TemN! 9 "####0.0#####"): Textl l(3).Text 
Trim$(Dum$) '4 

Input #F1%, TemN!: Dum$ = Fonnat$(TemN!, "####0.0#####"): Textl l(4).Text 
Trim$(Dum$) '5 

Input #F1%, TemN!: Dum$ = Format$(TemN!, "####0.0#####"): Textl l(5).Text 
Trim$(Dum$) '6 

Input #F1%, TemN!: Dum$ = Format$(TemN!, "####0.0#####"): Textl2(0).Text 
Trim$(Dum$) ^ G59 

Input #F1%, TemN!: Dum$ = Format$(TemN!, »####0.0#####"): Textl2(l).Text 
Trim$(Dum$) 'Y 

Input #F1%, TemN!: Dum$ = Format$(TemN!, »####0.0#####"): Textl2(2).Text 
Trim$(Dum$) 'Z 

Input #F1%, TemN!: Dum$ = Foimat$(TemN!, "####0.0#####"): Textl2(3).Text 
Trim$(Dum$) '4 

Input #F1%, TemN!: Dum$ = Format$(TemN!, "####0.0#####"): Textl 2(4).Text 
Trim$(Dum$) '5 

Input #F1%, TemN!: Dum$ - Format$(TemN!, »####0.0#####"): Textl 2(5).Text 
Trim$(Dum$) '6 

Input #F1%, Dum$: SSCheckl .Value = Val(Dum$) 'Dry Run 
Input #F1%, Dum$: SSCheck2. Value = Val(Dum$) 'BitMap G code 
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Input #F1%, TemN!: Dum$ = Format$(TemN!, "####0.0#####"): Textl3.Text = 
Trim$(Dum$) Tolerance 

Input #F1%, Dum$: Textl4.Text = Trim$(Dum$) 'Block Skip Char 
Input #F1%, Dum$: Textl5.Text = Trim$(Dum$) Teach Filename 

Input #F1%, Dum$: SSOptionl(0). Value = Val(Dum$) 'Absolute 
Input #F1%, Dum$: SSOptionl(l). Value = Val(Dum$) 'Incremental 
Input #F1%, Dum$: SSOptionl(2).Value = Val(Dum$) 'R code 

23 1 extra tool options 
Text21.Text = "0" 

Input #F1%, TemN!: Dum$ = Format$(TemN!, "####0.0#####"): Text21.Text = 
Trim$(Dum$) ' Solid stock Z begin 
Text22.Text = "l" 

Input #F1%, TemN!: Dum$ = Format$(TemN!, "####0.0#####"): Text22.Text = 
Trim$(Dum$) ' Extra Stock 
SSCheck3.Value = 0 

Input #F1%, Dum$: SSCheck3 .Value = Val(Dum$) 'Graphics: Solids vs. Wire Frame 
SSCheck4.Value = 0 

Input #F1%, Dum$: SSCheck4. Value = Val(Dum$) ' WireTrace 
If SSCheck3 .Value = True then 

SSCheck4.Value = False: SSCheck4. Visible = False 

Else 

SSCheck4. Visible = True 
End If 

Input #F1%, TemN!: Dum$ = Format$(TemN!, "####0.0#####"): Text6(6).Text = 
Trim$(Dum$) 7 

Input #F1%, TemN!: Dum$ = Format$(TemN!, "####0.0#####"): Text6(7).Text = 
Trim$(Dum$) '8 

Input #F1%, TemN!: Dum$ = Format$(TemN!, "####0.0#####"): Text7(6).Text = 
Trim$(Dum$) 7 G54 

Input #F1%, TemN!: Dum$ = Format$(TemN!, «####0.0#####"): Text7(7).Text = 
Trim$(Dum$) '8 

Input #F1%, TemN!: Dum$ = Format$(TemN!, "####0.0#####"): Text8(6).Text = 
Trim$(Dum$) 7 G55 

Input #F1%, TemN!: Dum$ = Format$(TemN!, »####0.0#####"): Text8(7).Text = 
Trim$(Dum$) '8 

Input #F1%, TemN!: Dum$ = Format$(TemN!, "####0.0#####"): Text9(6).Text = 
Trim$(Dum$) 7 

Input #F1%, TemN!: qum$ = Format$(TemN!, "####0.0#####"): Text9(7).Text = 
Trim$(Dum$) 7 

Input #F1%, TemN!: Dum$ = Format$(TemN!, "####0.0#####"): TextlO(6).Text = 
Trim$(Dum$) 7 

Input #F1%, TemN!: Dum$ = Format$(TemN!, "####0.0#####"): TextlO(7).Text = 
Trim$(Dum$) '8 
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Input #F1%, TemN!: Dum$ = Format$(TemN!, "####0.0#####"): Textl l(6).Text = 
Trim$(Dum$) 7 

Input #F1%, TemN!: Dum$ = Format$(TemN!, "####0.0#####"): Textl l(7).Text = 
Trim$(Dum$) '8 

Input #F1%, TemN!: Dum$ = Fonnat$(TemN!, "####0.0#####"): Textl 2(6).Text = 
Trim$(Dum$) 7 G59 

Input #F1%, TemN!: Dum$ = Format$(TemN!, "####0.0#####"): Textl 2(7).Text = 
Trim$(Dum$) '8 

Close Fl% 

Help$ = "CNCTOOL.Hlp" 
Exit Sub 

Lload: 
Close Fl% 
Exit Sub 

LloadErr: 

If Erl = 23 Then Resume Lload 
MsgBox Str$(Err), 48, "Error" 
End 

End Sub 



[0032] Subroutine Element GloRead 

Reads in all global and public data from user input boxes plus any proprietary 
settings from FIG 1 and stores them into the Database Element as described in and 
enumerated as paragraph [0030]. 

Sub GloReadO 

On Local Error GoTo GloReadERR: 
F% = FreeFile:G% = 0 

Open IniDir$ + "ini\PLANES.FIL" For Input As #F% 



'G% = G%+1 
Input #F%, PlnBack!(G%) 
Input #F%, PlnLeft!(G%) 
Input #F%, PlnCw!(G%) 
Loop Until G% = 256 
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Close F% 
F% = FreeFile 

Open IniDirS + "ini\GLOBAL.FIL" For Input As #F% 

Line Input #F%, BitMap$ 
Line Input #F%, Sound$ 
Line Input #F%,Ram$ 

K% = InStr(Ram$, "\"): If K% = 0 Then Ram$ = Ram$ + T 
Line Input #P/o, FileW$ 

K% = InStr(FUeW$, T): If K% = 0 Then FileW$ = FileWS + T 
Line Input #F%, Filet$ 

K% = InStr(Filet$, T): If K% = 0 Then Filet$ = Filet$ + "V 

Line Input #P/o,Passl$ 

Line Input #F%,Pass2$ 

Line Input #P/o,Pass3$ 

Line Input #F%, CurFileS 

Line Input #F%,Help$ 

Input #F%, Max% 

Input #F%, Layer% 

Input #F%,Path% 

Input #F%,BAD% 

Input #F%, Plane% 

Line Input #P/o, Mach$ 

Line Input #P/o, Ver$ 

Input #P/o, Scan% 

Input #F%,Coli% 

Input #P/o, Tune% 

Input #P/o, Speed! 

Input #F%, Feed! 

Input #F%, Tool! 

Input #P/o,Dia! 

Input #F%, Rapid! 

Input #P/o, mode% 

Input #P/o, Redraw% 

Input #F%, Metric% 

Input #F%, T2D% 

Input #F%,Toler! 

Input #F%, SHIFTA! 

Input #F%, FirstHelp% 

Input #F%, HiLitePath% 

Close #F% 

TolerSurf! = Toler! * 20 
'Level% = Level%/33 
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Exit Sub 

GloReadERR: 
Close F% 

If Err = 53 Then MsgBox IniDir$ + "ini\Global.Fil Not Found", 65536 + 16, "Error": End 
MsgBox "Can't Open " + IniDir$ + "ini\Global.Fil", 65536 + 16, "Error " + Str$(Err) + 
":" + Str$(Erl): End 
End 

End Sub 



[0033] Subroutine Element ANG2VEC 

Returns angle between two vectors and works together with and calls the 
functions in the element titled Database subroutine, Intelligent Database subroutine 
enumerated as paragraph [0030] and the element titled Central subroutine enumerated as 
paragraph [0029]. 



Sub ANG2VEC(SubVxl!, SubVyl!, SubVzl!, SubVx2!, SubVy2!, SubVz2!, SubAng!) 
Vxl ! = SubVxl !: Vyl ! = SubVyl !: Vzl ! - SubVzl !: Vx2! = SubVx2!: Vy2! = SubVy2!: 
Vz2! = SubVz2! 
Call RCOS(T!) 

*If T! < Toler! Then T! = 360 ' leave to calling sub 
SubAng! = Abs(T!) 
End Sub 



[0034] Subroutine Element AnglnArc 

Tells if Angle given falls between arc angles and works together with and calls 
the functions in the element titled Database subroutine, Intelligent Database subroutine 
enumerated as paragraph [0030] and the element titled Central subroutine enumerated as 
paragraph [0029]. 



Sub AngInArc(SubSTang!, SubEndAng!, SubTestAng!, SUBRad!, SUBHIT%) 

SA! = SubSTang!: EA^ SubEndAng!: TA! = SubTestAng!: R! = SUBRad!: HIT% - 0 

Call TolAng(R!, TOL!) 

IfTA! = 360 Then TA! = 0 

IfEA! = 360 Then EA! = 0 

IfSA! = 0 Then SA! = 360 

If TA! = 0 And SA! = 360 And EA! <= SA! Then TA! = 360 
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If EA! <= SA! And TA! + TOL! >= EA! And TA! - TOL! <= SA! Then 
HIT% = 1 

If TA! - TOL! <= SA! And TA! + TOL! >= EA! Then HIT% = 2 
End If 

IfEA!>=SA!Then 

If TA! + TOL! >= EA! Or TA! - TOL! <= SA! Then 
HIT%=1 

If TA! - TOL! <= EA! Or TA! + TOL! >= SA! Then HIT% = 2 
End If 
End If 

SUBHIT% = HIT% 
End Sub 



[0035] Subroutine Element AngVec 

Changes XYZ vectors to real Angles relative to plane and works together with 
and calls the functions in the element titled Database subroutine, Intelligent Database 
subroutine enumerated as paragraph [0030] and the element titled Central subroutine 
enumerated as paragraph [0029]. 

Sub AngVec(SubVx!, SubVy!, SubVz!, SubPLn%) 
Vx! = SubVx!: Vy! = SubVy!: Vz! = SubVz! 
Call Rsin(Vx!): Call Rsin(Vy!): Call Rsin(Vz!) 

B! = PlnBack!(SubPLn%): L! = PlnLeft!(SubPLn%): C! = PlnCw!(SubPLn%) 

Call View2Vec(B!, L!, C!, Pvx!, Pvy!, Pvz!) 

SubVx! = Vx! - (90 - Pvx!) 

SubVy! = Vy! - (90 - Pvy!) 

SubVz! = Vz! - (90 - Pvz!) 

End Sub 



[0036] Subroutine Element Arc3pt3D 



Finds center of arc and radius given 3 points and works together with and calls the 
functions in the element titled Database subroutine, Intelligent Database subroutine 
enumerated as paragraph [0030] and the element titled Central subroutine enumerated as 
paragraph [0029]. 

Sub Arc3pt3D(SubXl!, SubYl!, SubZl!, SubX2!, SubY2!, SubZ2!, SUBX3!, SUBY3!, 
SUBZ3!, SUBI!, SubJ!, SubK!, SubR!, SubEr%) 



15 



Appl.No. 10/079,309 



SubEr% = 0 

On Local Error GoTo LArc3pt3D c^v?!- 72» = 

XI' = SubXl'- Yl! = SubYl!: Zl! = SubZl!: X2! = SubX2!: Y2! - SubY2!. Z2! 
SubZ2!: X3! = SUBX3!: Y3! = SUBY3!: Z3! = SUBZ3! 
A' = (Y2! - Yl!) * (Z3! - Z2!) - (Y3! - Y2!) * (Z2! - Zl!) 
B'" = (X3' - X2!) * (Z2! - Zl!) - (X2! - XI!) * (Z3! - Z2!) 
O = (X2! - XI!) * (Y3! - Y2!) - (X3! - X2!) * (Y2! - Yl !) 

A2« = ((ZV - Zl ') * B! - (Y3! - Yl!) * C!) / TemN!: B2! = 1 

£ = «X3! X2!) * Bl! - (Y3! - Y2!) * Al!) / «(A1! * B2!) - (A2! * Bl!)) * 2) 

X! = ((X3!+Xl!)/2) + (A2!*S!) 

Y! = ((Y3! + Yl!)/2) + (B2!*S!) 

Z! = ((Z3! + Zl!)/2) + (C2!*S!) 

XX' = (X! - XI !): YY! = (Y! - Yl !): ZZ! = (Z! - Zl !) 

R! = Sqr(XX! * XX! + YY! * YY! +ZZ! * ZZ!) 

If Metric% = 0 And R! > 1000 Then SubEr% = 1 

If Metric% = 1 And R! > 25400 Then SubEr% = 1 

SUBI! = X!: SubJ! = Y!: SubK! = Z!: SubR! = R! 

Exit Sub 

^lPlay("ERROR"): MsgBox "The 3 Positions are a Straight Line", 65536 +48, "Can 
Not Make ARC" 
SubEr%= 1 
Resume Larc3pt3D5 



Larc3pt3D5: 
End Sub 



[0037] Subroutine Element ArcEnd 

Calculates the ends of arc positions in 3D and works together with and calls the 
functions in the element tided Database subroutine, Intelligent Database subroutine 
enumerated as paragraph [0030] and the element titled Central subroutine enumerated as 
paragraph [0029]. 

Sub ArcEnd(SUBI!, SubJ!, SubK!, SubR!, SubS!, SubE!, SubPLn%, SubXl!, SubYl!, 
SubZl!, SubX2!, SubY2!, SubZ2!) 

i! = SUBI!: J! = SubJ!: K! = SubK!: R! = SubR!: S! = SubS!: E! = SubE!: P% = 
SubPLn% 

S! = S! * Radian!: E! = E! * Radian! 
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XI i = R! * Sin(S!): Yl ! = R! * Cos(S!): Zl ! = 0 

SubXl! -XI! + SubYl! = Yl! + J!: SubZl! = Z1! +K!: SubX2! -X2! 
SubY2! = Y2! + J!: SubZ2! = Z2! + K! 
End Sub 



[0038] Subroutine Element ArcLen 

Calculates the length of arc positions in 3D and works together with and calls the 
functions in the element tided Database subroutine, Intelligent Database subroutine 
enumerated as paragraph [0030] and the element titled Central subroutine enumerated as 
paragraph [0029]. 

Sub ArcLen(SubS!, SubE!, SubR!, SubL!) 

S! = SubS!: E! = SubE!: R! = SubR! 

it = S! - E!: If i! <= 0 Then i! = i! + 360 

SubL! = (R! * i! * 3.1415926) / 180 
End Sub 

[0039] Subroutine Element BiSectAng 

Calculate Bisected 3D angles and works together with and calls the functions in 
the element titled Database subroutine, Intelligent Database subroutine enumerated as 
paragraph [0030] and the element titled Central subroutine enumerated as paragraph 
[0029]. 

Sub BiSectAng(SUBSA!, SUBEA!, SubNew!) 

Sang! = SUBSA!: Eang! = SUBEA! 

If Sang! < Eang! Then Sang! = Sang! + 360 

N! = (Sang! - Eang!) / 2 

N!=N! +Eang! 

IfN! > 360 Then N!=N!- 360 

SubNew! =N! 

End Sub 
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[0040] Subroutine Element BISECVEC 

Calculate Bisected 3D vectors and works together with and calls the functions in 
the element titled Database subroutine, Intelligent Database subroutine enumerated as 
paragraph [0030] and the element titled Central subroutine enumerated as paragraph 
[0029]. 



Sub BISECVEC(SubXl !, SubYl !, SubZl !, SubX2!, SubY2!, SubZ2!, SubVx!, SubVy!, 
SubVz!) 

XI! = SubXl!: Yl! = SubYl!: Zl! - SubZl!: X2! = SubX2!: Y2! = SubY2!: Z2! = 
SubZ2! 

Q! = Sqr(A! * A! + B! * B! + C! * C!) 

If Abs(Q!) < 0.0002 Then SubVx! = 0: SubVy! = 0: SubVz! = 0: Exit Sub 
SubVx! - A! / Q!: SubVy! - B! / Q!: SubVz! = C! / Q! 
End Sub 



[0041] Subroutine Element CrLnlflnt 

Calculates 3D Circle/Line Intersections and works together with and calls the 
functions in the element titled Database subroutine, Intelligent Database subroutine 
enumerated as paragraph [0030] and the element titled Central subroutine enumerated as 
paragraph [0029]. 

Sub CrLnIflnt(SUBI!, SubJ!, SUBRad!, SubSang!, SubEang!, SubXl!, SubYl!, SubX2!, 

SubY2!, SubXlst!, SubYlst!, SubHitl%, SubX2nd!, SubY2nd!, SubHit2%) 

i! = SUBI!: J! = SubJ!: R! = SUBRad!: S! = SubSang!: E! = SubEang! 

XI ! = SubXl !: Yl ! = SubYl !: X2! - SubX2!: Y2! = SubY2!: SubHitl% = 0: SubHit2% 

= 0 

Call MATH(X1!, Yl!, i!, J!, 1, A!, R!, Em$, Er%, XA!, YA!, XB!, YB!): If Er% = 1 
Then Exit Sub 

'test 1st intersection 

SubXlst! = XA!: SubYlst! = YA! 

Call PtInCr(i!, J!, R!, Si, E!, XA!, YA!, Hitl%) 

If Hitl% = 1 And Hit2% > 0 Then SubHitl% = 1 

If Hitl% - 2 And Hit2% > 0 Then SubHitl% = 2 

'test 2nd intersection 

SubX2nd! = XB!: SubY2nd! = YB! 
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Call PTINLN(X1 !, Yl !, X2!, Y2!, XB!, YB!, Hit2%) 
If Hitl% = 1 And Hit2% > 0 Then SubHit2% = 1 
If Hitl% = 2 And Hit2% > 0 Then SubHit2% = 2 
End Sub 



[0042] Subroutine Element CrossErr 

Calculates errors in tool comp and works together with and calls the functions in 
the element titled Database subroutine, Intelligent Database subroutine enumerated as 
paragraph [0030] and the element titled Central subroutine enumerated as paragraph 
[0029]. 



Sub CrossErr(SubPLn%, SubVx!, SubVy!, SubVz!) 
P% = SubPLn% 

B! = PlnBack!(P%): L! = PlnLeft!(P%): C! = PlnCw!(P%) 
Call View2Vec(B!, L!, C!, Vx!, Vy!, Vz!) 
SubVx! = Vx!: SubVy! = Vy!: SubVz! = Vz! 
End Sub 



[0043] Subroutine Element DbAtr 

Database element to store geometry properties, error, conditions and positions. 
Works with the Element titled Intelligent Database subroutine enumerated as paragraph 
[0030]. 



Sub DbAtr(QATRl%, QATR2%, QATR3%, QATR4%, QATR5%, QATR6%, 
QATR7%, QATR8%, QATR9%) 

1 If ItemNumber% <=0 then Close file 

'QATR.1% = Item number 
'QATR2% = Function 
'QATR3% - Hot property 
'QATR4% = Entity type 
'QATR5% = Path number 
'QATR.6% - Layer number 
'QATR.7% = Line style 
•QATR8% = Position 
'QATR9% = Error 

Qitem% = QATR1% 



19 



Appl.No. 10/079,309 



If Qitem% <= 0 Then Close 153: DbOpen% = 0: Exit Sub 
If DbOpen% = 0 Then DbOpen% = 1 : Close 153: Open Filet$ + "DATABASE.FIL" 
For Random As #1 53 Len = Len(RecFile) 

Select Case QATR2% 
Case 0 'Set parameters 
TemL& = Len(RecFile) 

If (Qitem% * TemL&) <= LOF(153) Then Get #153, Qitem%, RecFile 'Must Get 
other things in RecFile before write 
RecFile.aaHot = QATR3% 
RecFile.aaType = QATR4% 
RecFile.aaPath = QATR5% 
RecFile.aaLayer = QATR6% 
RecFile.aaStyle = QATR7% 
RecFile.aaColor = QATR8% 
RecFile.aaPlane = QATR9% 
Put #153, Qitem%, RecFile 

Case 1 'Get parameters 
Get #153, Qitem%, RecFile 
QATR3% = RecFile.aaHot 
QATR4% = RecFile.aaType 
QATR5% = RecFile.aaPath 
QATR6% = RecFile.aaLayer 
QATR7% = RecFile.aaStyle 
QATR8% = RecFile.aaColor 
QATR9% = RecFile.aaPlane 
End Select 

End Sub 



[0044] Subroutine Element DbGet 

Gets Database item coordinate, property and position from random file. Works 
with the Element titled Intelligent Database subroutine enumerated as paragraph [0030]. 



Sub DbGet(SubItem%, SubXl!, SubYl!, SubZl!, SubX2!, SubY2!, SubZ2!) 

1 If ItemNumber% <=0 then Close file 

On Local Error GoTo dbgetERR: 
TT% = Subltem% 

If TT% <= 0 Then Close #153: DbOpen% = 0: Exit Sub 
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If DbOpen% = 0 Then DbOpen% = 1: Close 153: Open Filet$ + "DATABASE.FIL" For 
Random As # 1 53 Len = Len(RecFile) 

Get #153, TT%, RecFile 

SubXl!=RecFile.aaXl 

SubYl!=RecFile.aaYl 

SubZl! = RecFile.aaZl 

SubX2!=RecFile.aaX2 

SubY2!=RecFile.aaY2 

SubZ2! = RecFile.aaZ2 

Exit Sub 

dbgetERR: 

Close 153: DbOpen% = 0 

If Err = 53 Then MsgBox Filet$ + "DATABASE.FIL Not Found", 65536 + 16, "Error": 
End 

MsgBox "Can't Open " + Filet$ + "DATABASE.FIL", 65536 + 16, "Error " + Str$(Err) + 

":" + Str$(Erl): End 

End 

End Sub 



[0045] Subroutine Element DbSet 

Sets Database item coordinate, property and position from random file. Works 
with the Element titled Intelligent Database subroutine enumerated as paragraph [0030]. 

Sub DbSet(SubItem%, SubXl!, SubYl!, SubZl!, SubX2!, SubY2!, SubZ2!) 

' Sets Database item coord into random file 
' If ItemNumber% <=0 then Close file 

On Local Error GoTo DbSetERR: 
TT% = Subltem% 

If TT% <= 0 Then Close #153: DbOpen% = 0: Exit Sub 

If DbOpen% = 0 Thenf)bOpen% = 1: Close #153: Open FiletS + "DATABASE.FIL" For 
Random As #153 Len = Len(RecFile) 

TemL& = Len(RecFile) 

If (TT% * TemL&) <= LOF(153) Then Get #153, TT%, RecFile 'Must Get other things 
in RecFile 
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RecFile.aaXl=SubXl! 
RecFilcaaYl =SubYl! 
RecFile.aaZl =SubZl! 
RecFile.aaX2 = SubX2! 
RecFile.aaY2 = SubY2! 
RecFile.aaZ2 = SubZ2! 
Put#153,TT%,RecFile 

Exit Sub 

DbSetERR: 

Close 153: DbOpen% = 0 

If Err = 53 Then MsgBox FiletS + "DATABASE.FIL Not Found", 65536 + 16, "Error": 
End 

MsgBox "Can't Open " + FiletS + "DATABASE.FIL", 65536 + 16, "Error " + Str$(Err) + 

":" + Str$(Erl): End 

End 

End Sub 



[0046] Subroutine Element DbSetAtrCur 

Stores, retrieves and records current database variables in memory to work 
together with the Element titled Intelligent Database subroutine enumerated as paragraph 
[0030]. 

Sub DbSetAtrCur(SubType%) 

TT% - Max% 
T% = SubType% 
H%=1 
Pth% = 0 
L% = Layer% 

If SubType% = 2 Then S% = Style% Else S% - 0 
C% = Colr% 
Pln% = Plane% 

Call DbAtr(TT%, 0, H%, T%, Pth%, L%, S%, C%, Pln%) 
End Sub 
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[0047] Subroutine Element DefPln3pts 

Finds 3D plane vector normals and works together with and calls the functions in 
the element titled Database subroutine, Intelligent Database subroutine enumerated as 
paragraph [0030] and the element titled Central subroutine enumerated as paragraph 
[0029]. 



Sub DefPln3pts(SubPxl!, SubPyl!, SubPzl!, SubPx2!, SubPy2!, SubPz2!, SubPx3!, 
SubPy3!, SubPz3!, SubVx!, SubVy!, SubVz!) 

Pxl! = SubPxl!: Pyl! = SubPyl!: Pzl! - SubPzl!: Px2! = SubPx2!: Py2! = SubPy2!: 

Pz2! = SubPz2!: Px3! = SubPx3!: Py3! = SubPy3!: Pz3! = SubPz3! 

Call Vector(Px2!, Py2!, Pz2!, Px3!, Py3!, Pz3!, Vxl!, Vyl!, Vzl!, Vdl!) 

Call Vector(Px2!, Py2!, Pz2!, Pxl!, Pyl!, Pzl!, Vx2!, Vy2!, Vz2!, Vd2!) 

Call CROSSVEC(Vxl!, Vyl!, Vzl!, Vx2!, Vy2!, Vz2!, Vx!, Vy!, Vz!) 

SubVx! = Vx!: SubVy! = Vy!: SubVz! = Vz! 

End Sub 



[0048] Subroutine Element LnTan2Arc 

Calculates 3D Line Tangent to Arc at Angle Intersections and works together with 
and calls the functions in the element titled Database subroutine, Intelligent Database 
subroutine enumerated as paragraph [0030] and the element titled Central subroutine 
enumerated as paragraph [0029]. 



Sub LnTan2Arc(SUBI!, SubJ!, SubR!, SubAng!, SubCx!, SubCy!, SublntX!, SublntY!) 

i! = SUBI!: J! - SubJ!: R! = SubR!: A! = SubAng!: CX! = SubCx!: CY! = SubCy! 

XI ! = i!: Yl ! = J!: Al ! - A! - 90: Call Fixang(Al !): Call Polar(Xl !, Yl !, Al !, R!) 

X2! = i!: Y2! = J!: A2! = A! + 90: Call Fixang(A2!): Call Polar(X2!, Y2!, A2!, R!) 

SublntX! = XI !: SublntY! = Yl ! 

Call Dis(CX!, CY!, XI!, Yl!, Dl!) 

Call Dis(CX!, CY!, X2!, Y2!, D2!) 

If D2! < Dl! Then SublntX! = X2!: SublntY! = Y2! 

End Sub 
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(0049) Subroutine Element LnTan2Arcs 

Calculates 3D Line Tangent to two Arcs at Angle Intersections and works 
together with and calls the functions in the element titled Database subroutine, Intelligent 
Database subroutine enumerated as paragraph [0030] and the element titled Central 
subroutine enumerated as paragraph [0029]. 



Sub LnTan2Arcs(SUBIl!, SubJl!, SubRl!, SUBI2!, SubJ2!, SubR2!, SubCxl!, SubCyl!, 

SubCx2!, SubCy2!, SublntXl!, SublntYl!, SubIntX2!, SubIntY2!, SubEr%) 

II ! = SUBI1 ! : Jl ! = SubJl ! : Rl ! = SubRl ! 

12! - SUBI2!: J2! = SubJ2!: R2! = SubR2! 

Cxi ! = SubCxl !: Cyl ! = SubCyl !: SubEr% = 0 

Cx2! = SubCx2!: Cy2! = SubCy2! 

CallDis(H!,Jl!,I2!,J2!,D!) 

'If D! < Rl ! Or D! < R2! Then SubEr% = 1 : Exit Sub 

CallAng(Il!,Jl!,I2!,J2!,A!) 

Call Vector(Il !, Jl !, 0, i!, J!, 0, Vx!, Vy!, Vz!, Vd!) • Vector perperndicular to angle 
between arc centers 

Call DISVEC(I1!, Jl!, 0, Cx2!, Cy2!, 0, Vx!, Vy!, Vz!, D2!) 

TheSame% = 0: F! = (Rl ! + R2!) / D! ' If both crosshairs are on different sides 

If Dl ! < 0 And D2! < 0 Then TheSame% = 1: F! = (Rl ! - R2!) / D! ' If both crosshairs 

are on same side 

If Dl ! > 0 And D2! > 0 Then TheSame% = 1 : F! = (Rl ! - R2!) / D! ' If both crosshairs 
are on same side 

Call Rsin(F!): F! = 90 - Abs(F!) ' to get angle from arc center 

Select Case TheSame% 
CaseO 
'First arc 

T! = A! + F!: XI ! = II !: Yl ! = Jl !: Call Polar(Xl !, Yl !, T!, Rl !) 
T! = A! - F!: X2! = II !: Y2! = Jl!: Call Polar(X2!, Y2!, T!, Rl!) 
SublntXl ! = XI ! : SublntYl ! = Yl ! 
Call Dis(Cxl!, Cyl!, XI!, Yl!, Dl!) 

Call Dis(Cxl !, Cyl !, X2!, Y2!, D2!): If D2! < Dl ! Then SublntXl ! 
Y2! 

'Second Arc 

A! = A! + 180: Call Fixang(A!) 

T! = A! + F!:X1! = I2t: Yl! = J2!: Call Polar(Xl !, Yl !, T!, R2!) 
T! = A! - F!: X2! = 12!: Y2! = J2!: Call Polar(X2!, Y2!, T!, R2!) 
SubIntX2! = XI !: SubIntY2! = Yl ! 
Call Dis(Cx2!, Cy2!, XI!, Yl!, Dl!) 

Call Dis(Cx2!, Cy2!, X2!, Y2!, D2!): If D2! < Dl ! Then SubIntX2! 
Y2! 



= X2!: SublntYl! = 



= X2!:SubIntY2! = 
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Case 1 
'First arc 

If Rl! < R2! Then A! = A! + 180: Call Fixang(A!) 

T! = A! + F! : XI ! = II ! : Yl ! = Jl !: Call Polar(Xl !, Yl !, T!, Rl !) 

T! = A! - F! : X2! = II !: Y2! = Jl !: Call Polar(X2!, Y2!, T!, Rl !) 

SublntXl ! = XI ! : SublntYl ! = Yl ! 

Call Dis(Cxl !, Cyl !, XI !, Yl !, Dl !) 

'Second Arc 

T! = A! + F!: XI ! = 12!: Yl ! = J2!: Call Polar(Xl !, Yl !, T!, R2!) 
T! = A! - F!: X2! = 12!: Y2! = J2!: Call Polar(X2!, Y2!, T!, R2!) 
SubIntX2! = XI !: SubIntY2! = Yl ! 
Call Dis(Cx2!, Cy2!, XI !, Yl !, Dl!) 

Call Dis(Cx2!, Cy2!, X2!, Y2!, D2!): If D2! < Dl ! Then SubIntX2! = X2!: SubIntY2! = 
Y2! 

End Select 
End Sub 



[0050] Subroutine Element LnTanArcPt 

Calculates 3D Line Tangent to arc through point and works together with and 
calls the functions in the element titled Database subroutine, Intelligent Database 
subroutine enumerated as paragraph [0030] and the element titled Central subroutine 
enumerated as paragraph [0029]. 



Sub LnTanArcPt(SubPX!, SubPY!, SUBI!, SubJ!, SubR!, SubCx!, SubCy!, SublntX!, 
SublntY!, SubEr%) 

X! = SubPX!: Y! = SubPY!: i! = SUBI!: J! = SubJ!: R! = SubR!: CX! = SubCx!: CY! = 
SubCy!:SubEr% = 0 

Call Dis(X!, Y!, i!, J!, D!): If D! < R! Then SubEr% = 1: Exit Sub 
Call Ang(i!, J!, X!, Y!, A!) 

T! = A! + B!: XI! = i!: Yl ! - J!: Call Polar(Xl!, Yl!, T!, R!) 
T! = A! - B!: X2! = i!: Y2! = J!: Call Polar(X2!, Y2!, T!, R!) 
SublntX! = XI ! : SublntY! = Yl ! 
Call Dis(CX!, CY!, XI!, Yl!, Dl!) 

Call Dis(CX!, CY!, X2!, Y2!, D2!): If D2! < Dl! Then SublntX! = X2!: SublntY! = Y2! 
End Sub 



[0051] Subroutine Element MidArc 

Finds midway point of 3D arc and works together with and calls the functions in 
the element titled Database subroutine, Intelligent Database subroutine enumerated as 
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paragraph [0030] and the element titled Central subroutine enumerated as paragraph 
[0029]. 



Sub MidArc(SubPLn%, SubG%, SUBI!, SubJ!, SubK!, SubR!, SubS!, SubE!, SubX!, 
SubY!, SubZ!) 

P% = SubPLn%: i! = SUBI!: J! = SubJ!: K! = SubK!: R! = SubR!: S! = SubS!: E! = SubE! 

'If SubG% - 2 Then T! = S!: S! = E!: E! = T! ' done by CirConvert 

Call BiSectAng(S!, E!, MidAng!) 

X! = 0: Y! = 0: Z! = 0 

Call Polar(X!, Y!, MidAng!, R!) 

If P% > 0 Then Call R2P(X!, Y!, Z!, P%) 
X! = i! + X!: Y! = J! + Y!: Z! = K! + Z! 

SubX! = X!: SubY! = Y!: SubZ! = Z! 
End Sub 



[0052] Subroutine Element OffCR 

Offsets a circle in 3D and works together with and calls the functions in the 
element titled Database subroutine, Intelligent Database subroutine enumerated as 
paragraph [0030] and the element titled Central subroutine enumerated as paragraph 
[0029]. 

Sub OffCR(SUBI!, SubJ!, SubK!, SubR!, SubPLn%, SubXp!, SubYp!, SubZp!, 

SUBDis!, SubNewRad!, SubEr%) 

i! = SUBI!: J! = SubJ!: K! = SubK!: R! = SubR! 

P% = SubPLn%: Xp! - SubXp!: Yp! = SubYp!: Zp! - SubZp!: D! = SUBDis!: SubEr% 
= 0 

If P% > 0 Then Call ProjPln(P%, i!, J!, K!, Xp!, Yp!, Zp!) ' adjust chross/hair Z to plane 
of arc 

X! = Xp! - i!: Y! = Yp! - J!: Z! = Zp! - K! 
If T! >= R! Then SubNewRad! = R! + D! 

If T! < R! Then SubNewRad! = R! - D!: If SubNewRad! <= 0 Then SubEr% = 1 ' 
negative but continue 
End Sub 
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[0053] Subroutine Element OffLN 

Offsets a line in 3D and works together with and calls the functions in the element 
titled Database subroutine, Intelligent Database subroutine enumerated as paragraph 
[0030] and the element titled Central subroutine enumerated as paragraph [0029]. 



Sub OffLN(SubXl!, SubYl!, SubZl!, SubX2!, SubY2!, SubZ2!, SubPX!, SubPY!, 
SubPZ!, SUBDis!, SubPast%) 

XI! = SubXl!: Yl! = SubYl!: Zl! = SubZl!: X2! = SubX2!: Y2! = SubY2!: Z2! = 
SubZ2! 

Px! = SubPX!: Py! = SubPY!: Pz! = SubPZ!: D! = SUBDis! 

Call PtOnLn(Xl !, Yl !, Zl !, X2!, Y2!, Z2!, Px!, Py!, Pz!, IntX!, IntY!, IntZ!, EndX!, 
EndY!, EndZ!, Past%) 
If Past% = 1 Then Exit Sub 

Call Vector(IntX!, IntY!, IntZ!, Px!, Py!, Pz!, Vx!, Vy!, Vz!, Vd!) 
Call VecPol3D(Xl !, Yl !, Zl !, Vx!, Vy!, Vz!, D!) 

SubXl ! = XI !: SubYl ! = Yl !: SubZl ! = Zl !: SubX2! = X2!: SubY2! = Y2!: SubZ2! = Z2! 
End Sub 



[0054] Subroutine Element Tilt3D 

Tilts and rotates a tool for tool comp and works together with and calls the 
functions in the element titled Database subroutine, Intelligent Database subroutine 
enumerated as paragraph [0030] and the element titled Central subroutine enumerated as 
paragraph [0029]. 



Sub Tilt3D(SUB42B!, SUB42L!, SUB42C!, SUB42X!, SUB42Y!, Sub42Z!) 

Rx! = SUB42B!: Ry! = SUB42L!: Rz! = SUB42C!: X! = SUB42X!: Y! = SUB42Y!: Z! 
= Sub42Z! 

If Rx! = 0 And Ry! = 0 And Rz! = 0 Then Exit Sub 
1 rotate 3d tool our convention 

Rx! = Rx! * Radian!: Ry! = Ry! * Radian!: Rz! = Rz! * Radian! 
' Z rot, cw 

XI! = X! * Cz! + Y!* Sz!: Yl! =X! * -Sz! + Y! * Cz!: Zl! = Z! 
' Y rot, back 

X2! = X1!: Y2! = Y1! * CX! + Zl! * -Sx!: Z2! = Yl! *Sx!+Zl! * CX! 
'X rot, left 

SUB42X! = X2! * CY! + Z2! * -Sy!: SUB42Y! = Y2!: Sub42Z! = X2! * Sy! + Z2! * CY! 
End Sub 
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